Top 10k strings from Racing Manager (1983)(Virgin Games)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
6 MEETING=25
5 CLASS*4000
5 (MEETING/9
5 (MEETING/7
4 F(SECOND,1
4 *a)+((r$(c,1
3 S(L(A,SECOND),3
3 ;": VALUE `";L(A,13
3 ;" AND ";CLASS+2
3 ))+(L(A,13
2 do>class-2
2 do<class+2
2 S(H(HORSE,1
2 PRIZE MONEY =PRIZE MONEY+L(A,13
2 DO>CLASS-2
2 DO<CLASS+2
2 DO<CLASS*4000
2 CO+" "+N$(H(C,1
2 CHS=L(A,FIRST)
2 );" FURLONGS"
2 ),V)="1"):
2 )*(S(H(NO,1
2 (S(H(HORSE,1
2 (F(THIRD,1
2 (F(SECOND,1
2 (F(FIRST,1
2 ((S(H(NO,1
2 ((MON-SMON)*.3
2 ''"NOW ";S(H(HO,1
2 "which one ? (enter 1
2 "Enter new name"'
2 `";L(A,13
1 r$(l(a,dis),1
1 mon=mon-50
1 meeting=h(8
1 do>CLASS-2
1 do<CLASS+2
1 dis=first:
1 day (only horses which have won a race from their last six will be accepted)."
1 class*4000
1 a;" ";T$(A):
1 a$=a$+a$+a$:
1 a$=a$+a$+a$
1 a$="SAVE 0645"
1 Z$="THIRD "+N$
1 YOUR HORSE JUST WON THE DERBY !!
1 YOU LOST MONEY THIS SEASON
1 Y$="SECOND "+N$(L(A,SECOND))+" ":
1 X=NO.OF HORSES
1 X$=X$+"GS"
1 X$=X$+"GF"
1 X$="MTG. "+
1 WINNERS DAY
1 W$="FIRST "+N$(L(A,FIRST))+" ":
1 URGENT MESSAGE
1 The next meeting number is "
1 TRAINER :";T$(T,
1 TOTAL=TOTAL+H(A,3
1 TOTAL=TOTAL+F(B,1
1 THIRD PLACED PRIZE MONEY
1 THIRD WYELEA
1 THE WINNER IS
1 STEWARDS ENQUIRY
1 STAKE>5000
1 SKILL=SKILL+1
1 SECOND YOZZER
1 SECOND PLACED PRIZE MONEY
1 R$(L(A,THIRD),7
1 R$(L(A,THIRD),1
1 R$(L(A,SECOND),7
1 R$(L(A,SECOND),1
1 R$(L(A,FIRST),7
1 R$(L(A,FIRST),1
1 R$(L(A,C),1
1 R$(A)="/"+R$(A,1
1 PRIZE MONEY=PRIZE MONEY+L(A,13
1 PRIZE MONEY=0
1 PRESS 0 TO LINE PRINT RESULT
1 P=STAKE*(F(BHO,1
1 MON=MON-H(NO,3
1 MON=MON-EX:
1 MON=MON-90
1 MON=MON-700
1 MON=MON-470
1 MON=MON-250
1 MON=MON-220
1 MON=MON+H(NO,3
1 MON=MON+GAMB+PRIZE MONEY-ENTRY FEES-
1 MEETING=MEETING+1
1 MEETING=30
1 LOSERS DAY
1 L(A,CX)=B:
1 IA DERRINGER
1 H.CECIL 50000 L.PIGGOTTW.HERN 40000 W.CARSON P.WALWYN 30000 P.EDDERY F.DURR 20000 J.MERCER
1 GAMBLING BALANCE `
1 GAMB=GAMB-STAKE:
1 GAMB=GAMB+P
1 FIRST SNAKE BITE
1 ENTRY FEES=ENTRY FEES+CLASS*125
1 ENTRY FEES=0
1 E=E+(R$(h(c,1
1 E=E+(R$(H(C,1
1 E=E+(R$(B,V)="1"):
1 DISQUALIFIED
1 CONGRATULATIONS
1 CLASS=(A*3
1 CHS=L(A,THIRD)
1 CHS=L(A,SECOND)
1 ALIFIERS IN YOUR STABLES
1 ;x;" ";t$(x,19
1 ;x;" ";t$(x,
1 ;meeting +1
1 ;R$(L(A,B),
1 ;N$(L(A,HO));" SELECTED","ODDS ARE :";
1 ;C;" ";N$(L(A,C)),:
1 ;;N$(H(NO,1
1 ;"` = VALUES # = LIST + = EXIT":
1 ;"YOU BACKED THE WINNER":
1 ;"YOU ARE OFFERED THIS HORSE "'"DO YOU WANT HIM? "
1 ;"TRAINER FEE
1 ;"SELECT SKILL LEVEL"
1 ;"SALE PRICE `";H(NO,3
1 ;"Racing Manager";
1 ;"MONEY LEFT `";MON-EX;
1 ;"HORSE NAME
1 ;"GOING IS ";:
1 ;"FURLONG ";F:
1 ;"FOR HORSES WITH A SPEED FACTOR BETWEEN ";CLASS-2
1 ;"ENTER HORSE NUMBER OR 99"
1 ;"DISTANCE ";L(A,12
1 ;"Author : Mark Alexander."
1 ;"0 = COPY: ANY TO CONTINUE"
1 ;" AND `";CLASS*4000
1 99 to load a saved game ";
1 -T-(SKILL/3
1 --- RESULT STANDS ---
1 *a)+((r$(c,2
1 )=S(L(A,SECOND),3
1 )=(TOTAL/F(B,1
1 )="D")*400
1 )="3")*100
1 )="2")*200
1 )="1")*300
1 )="1")*100
1 )="0"+R$(L(A,C),1
1 )<CLASS*4000
1 );" FURLONGS";:
1 );" FURLONGS":
1 );" ";s(h(a,1
1 );" ";a$(Z*2
1 )*(S(H(A,1
1 ));B;" ";N$(L(A,B));
1 ));" SOLD FOR `";H(NO,3
1 ));" RUNNING"
1 ));" ACCEPTED"'"ENTRY FEE IS `";CLASS*125
1 ));" ";H(A,3
1 ))+"% S="+
1 ))+"% FIT "+
1 )'"NOW HAVE `";:
1 (S(L(A,B),1
1 (R$(L(A,THIRD),7
1 (R$(L(A,SECOND),7
1 (R$(L(A,FIRST),7
1 (MON/((smon/100
1 (L(A,THIRD))+" "
1 (GOING-S(c,4
1 (D(SECOND,1
1 (D(FIRST,1
1 ((RTE+WHAT)/SEA):
1 ("WHICH HORSE DO YOU WISH TO BACK?enter 1 to ";x);
1 '''"SAVE GAME SELECTED"''"INPUT 99 TO CONTINUE":
1 '''" PRESS TO"''"
1 ''"SEASON :- ";SEA
1 ''"S = SPEED RATING"'"F = FITNESS %"'"D = BEST DISTANCE"'"G = PREFFERED GOING"
1 ''"Old name : ";t$(ho,19
1 ''"Old name : ";t$(ho,
1 ''"INVALID ENTRY":
1 ''"Horse name not found try again":
1 ''"ENTRY FEES `";ENTRY FEES'"PRIZE MONEY `";PRIZE MONEY
1 ''"CREDITORS MEETING IS THE LAST STRAW"''"YOU DO THE HONOURABLE THING."
1 ''"CASH BEFORE RACING `";MON
1 ''"ALL ENTRIES FOR THIS MEETING NOW
1 ''"1 (learner) TO 9 (mastermind)"
1 '"WEEKLY BALANCE `";MON-X
1 '"TOTAL ENTRY FEES :`";ENTRY FEES:
1 '"THIS HORSE IS ";S(H(HORSE,1
1 '"STABLE JOCKEY :";T$(T,18
1 '"RACE VOID. INSUFFICIENT ENTRY.":
1 '"RACE :";A;"
1 '"Meeting number 25 is
1 '"MANAGERIAL RATING ";
1 '"FINANCE NOW `";MON
1 '"FEES ARE PER HORSE PER SEASON"
1 '"Every seventh meeting is
1 '"Every ninth meeting is LOSERS day (only horses which have
1 '"DO YOU WISH TO ENTER HIM FOR THERACE ? (Y/N)"
1 '"CONCERNING ";
1 '"CASH REMAINING `";MON
1 '"All meetings except the DERBY are classed in speed factors."
1 '"ALL SPEED FACTORS ARE CALCULATEDON THE SUCCESS OF THE HORSE LASTSEASON. PRIZE MONEY APPLIES ONLYTO THE CURRENT SEASON."
1 '": VALUE `";L(A,13
1 "new name is ";a$,
1 "` ";STAKE
1 "YOU WON `";P:
1 "WHILST TRAINING TODAY THE ANIMALWAS SEEN TO BE MISSING A STRIDE.UPON EXAMINATION A PULLED TENDONWAS FOUND."''"HORSE NOW 40% FIT":
1 "WHICH HORSE TO SELL? (1
1 "VALUE IS ";
1 "TRAINING FEE `";
1 "THIS HORSE SPRAINED A LIGAMENT ON THE MORNING GALLOPS":
1 "THIS HORSE IS SUFFERING WITH A TUMMY BUG"''"NOW ONLY 72% FIT":
1 "THIS HORSE INJURED HIMSELF WHILEKICKING MY NEW ROLLS"'"PANEL BEATERS AND RESPRAY `700"''"NOW ONLY 65% FIT":
1 "THIS HORSE HAS THROWN A SHOE":
1 "THIS HORSE HAS A COUGH"''"CALL OUT VET (NIGHT CALL) SUPPLYDRUGS AND HEATED STABLES `250"''"NOW ONLY 45% FIT":
1 "THIS HORSE HAS A CHILL"''"CALL OUT VET EXAMINE AND SUPPLY DRUGS AND HEATED STABLES `220"''"NOW ONLY 55% FIT":
1 "THIS ANIMAL HAS CONTRACTED
1 "THE GAME IS SAVED IN FIVE PARTS"
1 "TAX MAN TAKES 30% OF YOUR PROFIT"'"STARTED WITH `";SMON'"ENDED WITH `";MON'"30 % TAX = ";
1 "Start tape":
1 "REWIND AND START TAPE"
1 "RE-REGISTRATION FEE `50":
1 "PRIZE MONEY `";L(A,13
1 "PLEASE WAIT WHILST RACE IS RUN":
1 "PICK YOUR TRAINER"''"TRAINER
1 "Name too long (Max. 8
1 "Name too long (Max. 10
1 "Name Too long (Max. 13
1 "MEETING NUMBER ";MEETING;" RACE NUMBER ";A'"GOING :- ";:
1 "LOAD GAME SELECTED"
1 "I THINK THIS HORSE HAS VERY GOODDERBY PROSPECTS :";T$(T,
1 "I DON'T THINK THIS HORSE WOULD WIN A DONKEY DERBY :";T$(T,
1 "HOW MUCH ? (10-5000)";
1 "HORSES IN TRAINING `VAL `PRIZE":
1 "HIS SPEED FACTOR IS ";
1 "HIS BEST DISTANCE IS ";S(H(HORSE,1
1 "HE PREFERS ";:
1 "GOODBYE!":
1 "GOOD TO SOFT ";
1 "GOOD TO FIRM ";
1 "FOR HORSES THAT HAVE WON BETWEEN`";CLASS*4000
1 "FOR HORSES THAT HAVE NOT WON PRIZE MONEY AND WITH A SPEED FACTOR BETWEEN ";CLASS-2
1 "Enter the horse name you wish toalter ";
1 "ENTER THE NEW NAME"'
1 "ENTER 99 TO CONTINUE";
1 "DO YOU WANT TO SELL A HORSE ?";
1 "DO YOU WANT TO CONTINUE ?":
1 "CURRENT FORM - ";R$(H(HORSE,1
1 "CHOICE ? ENTER 0 IF NO ENTRY";
1 "CASH IN HAND `";MON'"TOTAL LIVESTOCK `";TOTAL'"
1 "Any key to hold listing":
1 "ALL SAVED INPUT 99 TO VERIFY";
1 "ALL HORSES":
1 "ALL HORSES IN OUR STABLES HAVE CONTRACTED A VIRUS. THE VET SAYSTHAT IT IS NOT SERIOUS BUT OUR TRAINING SCHEDULE HAS BEEN BADLYAFFECTED."''"ALL HORSES NOW ONLY 50% FIT"'"VETERINARY FEES `360"'"SPECIAL CARE CHARGES `580"''"50 % OF THESE CHARGES HAVE BEEN UNDERTAKEN BY OURSELVES.":
1 "ADDRESS ";ADR:
1 never won prize money qualify)."
1 ` FEE STABLE JOCKEY":
1 WITH A SPEED FACTOR BETWEEN ";CLASS-2
1 WINTER SUN PEACETIME DUST STORM GAMBLING LAD ICE STREAM DIRTY DUCK CAKE WALKER RUN FREE
1 WATERED DOWN LAST TRUMP CORNISH PIE STAR OF A
1 VIRGIN GAMES LTD.
1 VIRGIN GAMES 1983";
1 TWO TON TESS BOBBY'S DREAMDOPEY GO
1 TURF ACCOUNTANT"
1 TROJAN SECRETCREE SONG EIGHT BALL CROWN
1 TRAINING REPORT FOR"'"
1 TO WATCH WHOLE RACE OR ANY KEY TO SEE THE FINAL FURLONGDISTANCE IS ";l(a,12
1 TIMEKEEPER GATEWAY
1 TAX DODGE MOST CUNNING BEDBUG
1 SWEET SCENT HAPPY DAYS OLD THUNDER BE MY GUEST MAINSAIL
1 SPANISH WINE MAYOTTE
1 SNAKE BITE THE DOLPHIN FLASHBACK NITPICKER FISHWIFE
1 SHARP TAXI EXPEDITIOUS EQUANAID
1 SAVE GAME"
1 S FORM ODDS"
1 S F FORM D G"
1 ROMAN ROAD GONE FISHING POLARIS
1 ROLLERBALL MUMMYS PET FRENCH FRIAR THE WALL
1 REPORT FINANCES"
1 RENE'S PET DRUMROAN
1 RED ROBIN THE BANDSMAN HOT BRICK TUDOR ROSE PUCKMAN
1 O I OYSTON TIME MACHINE OCTAVIA GIRL FLUKE
1 NOBLE PRINCE WESTERN NEWS BLACK PIGEON SWEETPEA
1 NIGHT PROWLERFITTER
1 MOTHER IN LAWDANCING LIGHTCHICKWEED BANANA SPLIT DATSTORNIT SLIPPERY DICKLOONY LOOP POLICEMAN POP MUSIC PARK LANE GOLF BALL DON'S DONKEY YOZZER
1 MARKING TIME MARCHING ON BASTION MEWS POKE MY RIBS SURE CLOWN MR MAGOO
1 MAN OF SPIRITACCUSED
1 M.ALEXANDER
1 List HORSE names"''"
1 LOAD GAME"
1 LIST HORSES"
1 LIST FIXTURES"
1 LEVEL ";SKILL
1 HALEY'S COMETRAGAMUFFIN SPRINGTIME BEANSMEANS CORNFLAKE WESTWARD HO! DRAGON PALACETHE BOXER BREADWINNNER WHISKY MAC BELLRINGER SMART BOMB FLASHY MOTOR DON'T PANIC VIDEO KING WACKY WAITER KEYSTONE COP SPLURGE
1 FROM STABLES
1 FIT S DIST/GOING
1 FIT DIST/GOING
1 EQUINE FLU."''"VETERINARY CHARGE `90"'"FITNESS NOW 60%":
1 ENTER RACES"
1 END OF RACING SEASON"
1 DIAL A DISC HIGH WIRE SPARK PLUG INTERFACE INDIAN JOE GREENPEACE HALF A CROWN JILLS' PONY WAVELENGTH CUTTING EDGE MOONDANCER ROUND TRIP HILL OF SLANEWISHING WELL X RATED
1 CUT ABOVE ROXY MUSIC SLY FOX
1 COSTALOTTA ROSY LEE
1 COME ON DAD MYSTIC MULE ARABIAN NIGHTHERCULES
1 CHANGE TRAINER"
1 CAPTAIN KIRK MOBY DICK ELEVATOR
1 BLUE SWAN WHITE DOVE SPRINGY
1 Alter TRAINER name"''"
1 Alter JOCKEY name"''"
1 Alter HORSE name"''"
1 ALTER NAMES"
1 ACCEPTED"
1 ";N$(H(HORSE,1
1 To qualify for the DERBY a horsemust win more than `80000 in prize money. Other races this day are classed by prize money."
1 :VALUE `";a*4000
1 ***","FOR HORSES THAT HAVE WON MORE THAN `80000 THIS SEASON."
1 END OF RACE REPORT
1 DISTANCE :";L(A,12
1 ANY TO CONTINUE":